' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.08.29.21.34]) on 2023.09.10 at 03:08 (Coordinated Universal Time)

' BAM port by Charlie Veniot
' of program by overglobe as found at https://discord.com/channels/682603735515529216/1109162063009419404


xcen = 319: ycen = 239
 rad = 193
 tot = 144
 n = 12
 SCREEN 12
 CIRCLE (xcen, ycen), rad, 15
 bef = 0
 FOR k = 1 TO n
        ang = bef + _PI(2) * 12 / tot
        xp% = CINT( xcen + rad *  COS(ang)  )
        yp% = CINT( ycen + rad * SIN(ang)  )
        READ e
        CIRCLE (xp%, yp%), 46, e
        PAINT (xp%, yp%), e
        LINE (xcen, ycen)-(xp%, yp%), e + 256
        bef = ang
 NEXT
 DATA 9,13,5,4,12,6,14,10,2,3,1,11
 DO
 LOOP UNTIL INKEY$ = " "
 END